home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue38 / Survive / Demo1.dfm / Demo1.txt
Encoding:
Text File  |  1998-08-26  |  3.1 KB  |  149 lines
  1. object frmMain: TfrmMain
  2.   Left = 321
  3.   Top = 107
  4.   AutoScroll = False
  5.   Caption = 'Interactive Query Building Demo'
  6.   ClientHeight = 538
  7.   ClientWidth = 361
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 8
  19.     Top = 14
  20.     Width = 14
  21.     Height = 13
  22.     Caption = 'ID:'
  23.   end
  24.   object DBGrid1: TDBGrid
  25.     Left = 8
  26.     Top = 39
  27.     Width = 345
  28.     Height = 156
  29.     DataSource = DemoDM.dsQualifiers
  30.     Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  31.     TabOrder = 0
  32.     TitleFont.Charset = DEFAULT_CHARSET
  33.     TitleFont.Color = clWindowText
  34.     TitleFont.Height = -11
  35.     TitleFont.Name = 'MS Sans Serif'
  36.     TitleFont.Style = []
  37.     Columns = <
  38.       item
  39.         DropDownRows = 3
  40.         FieldName = 'quaFilterName'
  41.         Title.Caption = 'Qualify By'
  42.       end
  43.       item
  44.         FieldName = 'quaCode'
  45.         Title.Caption = 'Value'
  46.       end>
  47.   end
  48.   object DBNavigator1: TDBNavigator
  49.     Left = 157
  50.     Top = 8
  51.     Width = 196
  52.     Height = 25
  53.     DataSource = DemoDM.dsQualifiers
  54.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbCancel]
  55.     TabOrder = 1
  56.     BeforeAction = DBNavigator1BeforeAction
  57.   end
  58.   object btnNew: TButton
  59.     Left = 50
  60.     Top = 208
  61.     Width = 75
  62.     Height = 25
  63.     Caption = 'New'
  64.     TabOrder = 2
  65.     OnClick = btnNewClick
  66.   end
  67.   object btnSave: TButton
  68.     Left = 141
  69.     Top = 208
  70.     Width = 75
  71.     Height = 25
  72.     Caption = 'Save'
  73.     TabOrder = 3
  74.     OnClick = btnSaveClick
  75.   end
  76.   object btnClose: TButton
  77.     Left = 234
  78.     Top = 208
  79.     Width = 75
  80.     Height = 25
  81.     Caption = 'Close'
  82.     TabOrder = 4
  83.     OnClick = btnCloseClick
  84.   end
  85.   object cboQuaID: TComboBox
  86.     Left = 25
  87.     Top = 10
  88.     Width = 85
  89.     Height = 21
  90.     ItemHeight = 13
  91.     TabOrder = 5
  92.     OnClick = cboQuaIDClick
  93.   end
  94.   object DBGrid2: TDBGrid
  95.     Left = 9
  96.     Top = 401
  97.     Width = 345
  98.     Height = 120
  99.     DataSource = dsSubset
  100.     TabOrder = 6
  101.     TitleFont.Charset = DEFAULT_CHARSET
  102.     TitleFont.Color = clWindowText
  103.     TitleFont.Height = -11
  104.     TitleFont.Name = 'MS Sans Serif'
  105.     TitleFont.Style = []
  106.   end
  107.   object btnExecuteQuery: TButton
  108.     Left = 7
  109.     Top = 373
  110.     Width = 106
  111.     Height = 25
  112.     Caption = 'Execute Query'
  113.     TabOrder = 7
  114.     OnClick = btnExecuteQueryClick
  115.   end
  116.   object Memo1: TMemo
  117.     Left = 7
  118.     Top = 277
  119.     Width = 345
  120.     Height = 89
  121.     Font.Charset = ANSI_CHARSET
  122.     Font.Color = clWindowText
  123.     Font.Height = -11
  124.     Font.Name = 'Courier New'
  125.     Font.Style = []
  126.     ParentFont = False
  127.     TabOrder = 8
  128.   end
  129.   object btnGenerateQuery: TButton
  130.     Left = 7
  131.     Top = 250
  132.     Width = 109
  133.     Height = 25
  134.     Caption = 'Generate Query'
  135.     TabOrder = 9
  136.     OnClick = btnGenerateQueryClick
  137.   end
  138.   object qrySubset: TQuery
  139.     DatabaseName = 'Test'
  140.     Left = 36
  141.     Top = 449
  142.   end
  143.   object dsSubset: TDataSource
  144.     DataSet = qrySubset
  145.     Left = 69
  146.     Top = 448
  147.   end
  148. end
  149.